* textmodes/flyspell.el (sgml-mode-flyspell-verify): Use

`sgml-lexical-context' instead of own parse for tag.  (Further to
Bug#4511).

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index bffbbbc3cc18eaa45534cfa904403901c60c0411..9aaf466f0ed3e2cf07dd87e63a6c8a946dc785f0 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -360,13 +360,14 @@ property of the major mode name.")
 (put 'nxml-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify)
 
 (defun sgml-mode-flyspell-verify ()
-  "Function used for `flyspell-generic-check-word-predicate' in SGML mode."
-  (not (save-excursion
-        (or (looking-at "[^<\n]*>")
-            (ispell-looking-back "<[^>\n]*" (line-beginning-position))
-            (and (looking-at "[^&\n]*;")
-                 (ispell-looking-back "&[^;\n]*"
-                                       (line-beginning-position)))))))
+  "Function used for `flyspell-generic-check-word-predicate' in SGML mode.
+Tag and attribute names are not spell checked, everything else is.
+
+String values of attributes are checked because they can be text
+like <img alt=\"Some thing.\">."
+
+  (not (memq (car (sgml-lexical-context))
+            '(tag pi))))
 
 ;;*---------------------------------------------------------------------*/
 ;;*    Programming mode                                                 */